home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utilsys
/
xpkdopus.lha
/
xpkdopus5
/
xpk.dopus
next >
Wrap
Text File
|
1996-03-02
|
1KB
|
2 lines
/* Optimized with RexxOpt 1.7 */
options results;signal on syntax;signal on ioerr;signal on error;parse arg dopusport modus addargs;if dopusport~="" then address value dopusport;lister query source;parse var RESULT handle .;if rc>0 then exit;lister query handle numselentries;entries=RESULT;if entries<1 then break;lister set handle busy 1;do j=1 TO entries;lister query handle path;selpath=RESULT;lister query handle firstsel;selentry=RESULT;lister query handle entry selentry stem fileinfo.;if fileinfo.type<1 then;do;lister select handle selentry off;lister set handle progress 100 selentry;address command "xpkdopus DIR" '"'selpath'"' "FILE" selentry modus addargs "LISTER" handle "REXXPORT" dopusport;end;else dopus request '"'selentry 'is not a file "' "Ok";lister query handle abort;if RESULT then signal error;lister clear handle progress;lister refresh handle;end;syntax:;ioerr:;error:;lister clear handle progress;lister set handle busy 0;lister query handle path;lister read handle '"'RESULT'"' force